home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Clinical Endocrinology
/
Clinical Endocrinology.iso
/
mac
/
00000000
/
Search.dir
/
00033_Script_33
< prev
Wrap
Text File
|
1995-11-17
|
1KB
|
46 lines
on checkLinkies whichCast
global theString, theLine, theRef
put "Endocrinology:00000000" into hardDisk
put the number of lines in field whichCast into theLines
put ":" into sep
repeat with i = 1 to theLines
put the number of words in line i of field whichCast into theWords
repeat with ii = 1 to theWords
if ii = 1 then
put sep & word ii of line i of field whichCast into theString
else
put sep & word ii of line i of field whichCast after theString
end if
end repeat
put hardDisk & theString into theString
put i into theLine
put whichCast - 1 into refCast
put line i of field refCast into theRef
testString
end repeat
end checkLinkies
--------------------------
on testString
global theString, theLine, theRef
put fileIO(mNew,"read", theString) into readObj
if not objectP(readObj) then
put "the line is " && theLine & RETURN
put "the string is " && theString & RETURN
put "the ref is " && theRef & RETURN
put "*************" & RETURN
else
readObj(mDispose)
end if
end testString